home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr35 / scani02b.zip / SCANICFG.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-01-09  |  18KB  |  997 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  17550 bytes  01/29/123  04:12:48pm
  3. '! Code Segment Size  :10927 bytes
  4. '! Data Segment Size  :4568 bytes
  5. '! String Segment Size:6623 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8. '!      Declare Function Func151(s65534 As String) As Integer
  9. '!      Declare Sub Sub254(i65534 As Integer, s65532 As String)
  10. '!      Declare Function Func331(i65534 As Integer, i65532 As Integer, i65530 As Integer, s65528 As String) As Integer
  11.       Declare Function Func488(i65534 As Integer, s65532 As String) As Integer
  12. '!      Declare Function Func592(s65534 As String) As String
  13. '!      Declare Sub Sub776(i65534 As Integer, s65532 As String, s65530 As String)
  14.       Declare Sub Sub1034
  15.       Declare Sub Sub1159
  16.       Declare Sub Sub2331
  17.       Declare Sub Sub2397
  18.       Declare Sub Sub3109
  19.       Declare Sub Sub3335
  20.       Declare Sub Sub3555
  21.       Declare Sub Sub3902
  22.       Declare Sub Sub6650
  23.       Declare Sub Sub6892
  24.       Declare Sub Sub7118
  25.       Declare Sub Sub7290
  26.       Declare Sub Sub7433
  27.       Declare Sub Sub7605
  28.       Declare Sub Sub7831
  29.       Declare Sub Sub8019
  30.       Declare Sub Sub8912
  31.  
  32.       Dim s4463 As String
  33.       Dim s4467 As String
  34.       Dim s4471(1 To 10) As String
  35.       Dim s4511 As String
  36.       Dim s4515 As String
  37.       Dim s4519 As String
  38.       Dim i4523 As Integer
  39.       Dim s4525 As String
  40.       Dim s4529 As String
  41.       Dim s4533 As String
  42.       Dim i4537 As Integer
  43.       Dim i4539 As Integer
  44.       Dim i4541 As Integer
  45.       Dim i4543 As Integer
  46.       Dim i4545 As Integer
  47.       Dim i4547 As Integer
  48.       Dim i4549 As Integer
  49.       Dim i4551 As Integer
  50.       Dim i4553 As Integer
  51.       Dim i4555 As Integer
  52.       Dim i4557 As Integer
  53.       Dim i4559 As Integer
  54.       Dim i4561 As Integer
  55.       Dim b4563 As Byte
  56.       Dim s4564 As String
  57.  
  58.       b4563 = 0
  59.       Sub1159
  60.       Sub2331
  61.       Sub2397
  62.       Sub8912
  63.       End 
  64.  
  65. '! Called 0 times
  66. '!      Function Func151(s65534 As String) As Integer
  67. '!        Dim i65530 As Integer
  68.  
  69. '!        i65530 = 40 - Len(s65534) / 2
  70. '!  190   Do While i65530 + Len(s65534) > 79
  71. '!          i65530 = i65530 - 1
  72. '!        Loop
  73. '!  236   Func151 = i65530
  74. '!      End Function
  75.  
  76. '! Called 0 times
  77. '!      Sub Sub254(i65534 As Integer, s65532 As String)
  78. '!        Dim i65530 As Integer
  79.  
  80. '!        i65530 = AtLen(s65532)
  81. '!        i65530 = 40 - i65530 / 2
  82. '!        Locate i65534, i65530
  83. '!        Print s65532;
  84. '!      End Sub
  85.  
  86. '! Called 0 times
  87. '!      Function Func331(i65534 As Integer, i65532 As Integer, i65530 As Integer, s65528 As String) As Integer
  88. '!        Dim i65520 As Integer
  89. '!        Dim i65522 As Integer
  90. '!        Dim i65524 As Integer
  91.  
  92. '!        If AtLen(s65528) > 76 Then
  93. '!          s65528 = Left(s65528, 76)
  94. '!        End If
  95. '!  376   i65522 = CsrLin
  96. '!        i65520 = Pos
  97. '!        i65524 = 40 - AtLen(s65528) / 2
  98. '!        Color i65532, i65530
  99. '!        Locate i65534, i65524
  100. '!        Print Trim(s65528);
  101. '!        Locate i65522, i65520
  102. '!      End Function
  103.  
  104. '! Called 9 times
  105.       Function Func488(i65534 As Integer, s65532 As String) As Integer
  106.         Dim i65524 As Integer
  107.         Dim i65526 As Integer
  108.         Dim i65528 As Integer
  109.  
  110.         i65526 = CsrLin
  111.         i65524 = Pos
  112.         i65528 = 40 - AtLen(s65532) / 2
  113.         Locate i65534, i65528
  114.         Print Trim(s65532);
  115.         Locate i65526, i65524
  116.       End Function
  117.  
  118. '! Called 0 times
  119. '!      Function Func592(s65534 As String) As String
  120. '!        Dim l65516 As Long
  121. '!        Dim i65520 As Integer
  122. '!        Dim s65522 As String
  123. '!        Dim i65526 As Integer
  124. '!        Dim i65528 As Integer
  125.  
  126. '!        i65528 = 40 - Len(s65534) / 2
  127. '!        s65522 = s65534
  128. '!  665   For i65526 = 1 To i65528 Step 1
  129. '!          s65522 = " " + s65522
  130. '!        Next
  131. '!  753   Func592 = s65522
  132. '!      End Function
  133.  
  134. '! Called 0 times
  135. '!      Sub Sub776(i65534 As Integer, s65532 As String, s65530 As String)
  136. '!        Dim l65518 As Long
  137. '!        Dim i65522 As Integer
  138. '!        Dim i65528 As Integer
  139.  
  140. '!        s65532 = s65532 + " "
  141. '!        s65532 = Left(s65532, Int(Len(s65532) / 2) * 2)
  142. '!        Print "@NOPAUSE@" + s65530
  143. '!  897   For i65528 = 1 To Len(s65532) / 2 Step 1
  144. '!          Delay 0.01
  145. '!          Locate i65534, 40 - i65528
  146. '!          Print Left(s65532, i65528); Right(s65532, i65528)
  147. '!        Next
  148. '! 1031
  149. '!      End Sub
  150.  
  151. '! Called 36 times
  152.       Sub Sub1034
  153.         Dim l65528 As Long
  154.         Dim i65532 As Integer
  155.         Dim i65534 As Integer
  156.  
  157.  1064   For i65534 = 8 To 22 Step 1
  158.           Locate i65534, 1
  159.           Print Space(79);
  160.         Next
  161.  1156
  162.       End Sub
  163.  
  164. '! Called 1 time
  165.       Sub Sub1159
  166.         If Exists("SCANIT.CFG") Then
  167.           Open "SCANIT.CFG" For Input As 1
  168.           Input #1, s4463
  169.           Input #1, s4467
  170.           Input #1, s4471(1)
  171.           Input #1, s4471(2)
  172.           Input #1, s4471(3)
  173.           Input #1, s4471(4)
  174.           Input #1, s4471(5)
  175.           Input #1, s4471(6)
  176.           Input #1, s4471(7)
  177.           Input #1, s4471(8)
  178.           Input #1, s4471(9)
  179.           Input #1, s4471(10)
  180.           Input #1, s4511
  181.           Input #1, s4515
  182.           Input #1, s4519
  183.           Input #1, i4523
  184.           Input #1, s4525
  185.           Input #1, s4529
  186.           Input #1, s4533
  187.           Input #1, i4537
  188.           Input #1, i4539
  189.           Input #1, i4541
  190.           Input #1, i4543
  191.           Input #1, i4545
  192.           Input #1, i4547
  193.           Input #1, i4549
  194.           Input #1, i4551
  195.           Input #1, i4553
  196.           Input #1, i4555
  197.           Input #1, i4557
  198.           Input #1, i4559
  199.           Input #1, i4561
  200.           Close 1
  201.           s4463 = UCase(s4463)
  202.           s4467 = UCase(s4467)
  203.           s4511 = UCase(s4511)
  204.           s4515 = UCase(s4515)
  205.           s4519 = UCase(s4519)
  206.           s4525 = UCase(s4525)
  207.           s4529 = UCase(s4529)
  208.           s4533 = UCase(s4533)
  209.         End If
  210.  1793   If Not Exists("SCANIT.CFG") Then
  211.           s4463 = "C:\WILDCAT\WCWORK\NODE"
  212.           s4467 = "C:\WILDCAT"
  213.           s4471(1) = ".COM"
  214.           s4471(2) = ".RAR"
  215.           s4471(3) = ".BAT"
  216.           s4471(4) = ".JPG"
  217.           s4471(5) = ""
  218.           s4471(6) = ""
  219.           s4471(7) = ""
  220.           s4471(8) = ""
  221.           s4471(9) = ""
  222.           s4471(10) = ""
  223.           s4511 = ""
  224.           s4515 = "PKZIP"
  225.           s4519 = "N"
  226.           i4523 = 0
  227.           s4525 = "BOTH"
  228.           s4529 = "Y"
  229.           s4533 = "C:\WILDCAT\DISP\SCANIT3.BBS"
  230.           i4537 = 18
  231.           i4539 = 6
  232.           i4541 = 34
  233.           i4543 = 9
  234.           i4545 = 3
  235.           i4547 = 11
  236.           i4549 = 3
  237.           i4551 = 13
  238.           i4553 = 3
  239.           i4555 = 15
  240.           i4557 = 3
  241.           i4559 = 10
  242.           i4561 = 3
  243.         End If
  244.  2328
  245.       End Sub
  246.  
  247. '! Called 9 times
  248.       Sub Sub2331
  249.         Print "@CLS@@09@██▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀██"
  250.         Print "█             @07@┌╦═@0F@══╦┐ @07@┌╦═@0F@══╦┐ @07@┌╦═@0F@══╦┐ @07@┌╦═@0F@╗ ╦┐ @07@┌═╤@0F@╦╤═┐ @07@┌═╤@0F@╦╤═┐ @07@╒@0F@╦╕             @09@█"
  251.         Print "█             @03@└╩═@0B@══╦┐ @03@│║      ├╬═@0B@══╬┤ @03@│║ @0B@║ ║│   @03@│@0B@║│     @03@│@0B@║│   @03@╘@0B@╩╛             @09@█"
  252.         Print "█             @01@└╩═@09@══╩┘ @01@└╩═@09@══╩┘ @01@└╩   @09@╩┘ @01@└╩ @09@╚═╩┘ @01@└═╧@09@╩╧═┘   @01@╧@09@╩╧   @01@└@09@╩┘             █"
  253.         Print "██▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄██"
  254.         Print "@0F@                  Copyright (c) 1994/1995 - Blake Software"
  255.       End Sub
  256.  
  257. '! Called 14 times
  258.       Sub Sub2397
  259.         Color 9, 0
  260.         Locate 8, 1
  261.         Print "[ ]"
  262.         Locate 9, 1
  263.         Print "[ ]"
  264.         Locate 10, 1
  265.         Print "[ ]"
  266.         Locate 11, 1
  267.         Print "[ ]"
  268.         Locate 12, 1
  269.         Print "[ ]"
  270.         Locate 13, 1
  271.         Print "[ ]"
  272.         Locate 14, 1
  273.         Print "[ ]"
  274.         Locate 15, 1
  275.         Print "[ ]"
  276.         Locate 16, 1
  277.         Print "[ ]"
  278.         Locate 17, 1
  279.         Print "[ ]"
  280.         Locate 18, 1
  281.         Print "[ ]"
  282.         Locate 19, 1
  283.         Print "[ ]"
  284.         Locate 20, 1
  285.         Print "[ ]"
  286.         Color 11, 0
  287.         Locate 8, 2
  288.         Print "N";
  289.         Locate 9, 2
  290.         Print "L";
  291.         Locate 10, 2
  292.         Print "E";
  293.         Locate 11, 2
  294.         Print "Z";
  295.         Locate 12, 2
  296.         Print "D";
  297.         Locate 13, 2
  298.         Print "R";
  299.         Locate 14, 2
  300.         Print "M";
  301.         Locate 15, 2
  302.         Print "S";
  303.         Locate 16, 2
  304.         Print "F";
  305.         Locate 17, 2
  306.         Print "U";
  307.         Locate 18, 2
  308.         Print "C";
  309.         Locate 19, 2
  310.         Print "X";
  311.         Locate 20, 2
  312.         Print "A";
  313.         Color 14, 0
  314.         Locate 8, 5
  315.         Print "Node Path.................: " + s4463;
  316.         Locate 9, 5
  317.         Print "Log file Path.............: " + s4467;
  318.         Locate 10, 5
  319.         Print "Exclude Extensions........: <Activate to see settings>";
  320.         Locate 11, 5
  321.         Print "Zip Comment...............: " + s4511;
  322.         Locate 12, 5
  323.         Print "Default Packer............: " + s4515;
  324.         Locate 13, 5
  325.         Print "Repack w/default..........: " + s4519;
  326.         Locate 14, 5
  327.         Print "Message Conference........: " + Str(i4523);
  328.         Locate 15, 5
  329.         Print "Send Msgs To..............: " + s4525;
  330.         Locate 16, 5
  331.         Print "Force Mail Check on Fail..: " + s4529;
  332.         Locate 17, 5
  333.         Print "User Display File.........: "; s4533;
  334.         Locate 18, 5
  335.         Print "Coordinates of Status Info: <Activate to see settings>";
  336.         Locate 19, 5
  337.         Print "Save and Exit"
  338.         Locate 20, 5
  339.         Print "Exit and Abandon"
  340.       End Sub
  341.  
  342. '! Called 1 time
  343.       Sub Sub3109
  344.         Color 11, 0
  345.         Locate 8, 1
  346.         Print "Current Setting for NODE PATH:";
  347.         Color 12, 0
  348.         Locate 9, 1
  349.         Print "Node Path.................: " + s4463;
  350.         Color 15, 0
  351.         Locate 10, 1
  352.         Print "This selection tells SCANIT where your NODE path is, just";
  353.         Locate 11, 1
  354.         Print "in case you do not run the default path settings from MakeWild.";
  355.         Color 14, 0
  356.         Locate 13, 1
  357.         Print "Enter the COMPLETE path to the NODE directory, but DON'T put";
  358.         Locate 14, 1
  359.         Print "in any node numbers or trailing backslashes (\). Example:";
  360.         Locate 15, 1
  361.         Print "C:\WILDCAT\WCWORK\NODE";
  362.         Locate 17, 1
  363.         Print "Enter new NODE PATH or press <ENTER> for current setting.";
  364.         Color 15, 0
  365.         Locate 18, 1
  366.         s4463 = InputMask("Node Path: ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4463, 1213417543)
  367.         s4463 = UCase(s4463)
  368.         Sub1034
  369.       End Sub
  370.  
  371. '! Called 1 time
  372.       Sub Sub3335
  373.         Color 11, 0
  374.         Locate 8, 1
  375.         Print "Current Setting for LOG PATH:";
  376.         Color 12, 0
  377.         Locate 9, 1
  378.         Print "Log file Path.............: " + s4467;
  379.         Color 15, 0
  380.         Locate 10, 1
  381.         Print "Enter the path you want SCANIT to create it's log file in.";
  382.         Color 14, 0
  383.         Locate 12, 1
  384.         Print "SCANIT creates/adds to a log file when any file fails scan.";
  385.         Locate 13, 1
  386.         Print "The log file name is SCANIT.LOG. Enter the COMPLETE PATH, but";
  387.         Locate 14, 1
  388.         Print "OMIT the final backslash. Example:";
  389.         Locate 15, 1
  390.         Print "C:\WILDCAT"
  391.         Locate 17, 1
  392.         Print "Enter Log File Path or press <ENTER> for current setting."
  393.         Locate 18, 1
  394.         s4467 = InputMask("Log Path: ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4467, 1213417543)
  395.         s4467 = UCase(s4467)
  396.         Sub1034
  397.       End Sub
  398.  
  399. '! Called 11 times
  400.       Sub Sub3555
  401.         Dim l65528 As Long
  402.         Dim i65532 As Integer
  403.         Dim i65534 As Integer
  404.  
  405.  3585   For i65534 = 1 To 10 Step 1
  406.           If Left(s4471(i65534), 1) <> "." Then
  407.             s4471(i65534) = "." + s4471(i65534)
  408.             If Len(s4471(i65534)) > 4 Then
  409.               s4471(i65534) = Left(s4471(i65534), 4)
  410.             End If
  411.           End If
  412.  3876   Next
  413.  3899
  414.       End Sub
  415.  
  416. '! Called 1 time
  417.       Sub Sub3902
  418.         Dim l65523 As Long
  419.         Dim i65527 As Integer
  420.         Dim s65529 As String
  421.         Dim o65533 As Boolean
  422.         Dim i65534 As Integer
  423.  
  424.         o65533 = 0
  425.         Do
  426.  3917     Sub1034
  427.           Color 11, 0
  428.           Locate 8, 1
  429.           Print "Current Exclusion List:"
  430.           Color 14, 0
  431.  3972     For i65534 = 1 To 10 Step 1
  432.             Locate i65534 + 8, 1
  433.             If i65534 < 10 Then
  434.               Print "[ " + Str(i65534) + "] " + s4471(i65534);
  435.             Else
  436.  4118         Print "[" + Str(i65534) + "] " + s4471(i65534);
  437.             End If
  438.  4179     Next
  439.  4202     Color 10, 0
  440.           Locate 20, 1
  441.           s4564 = InputMask("Number of item to change? (0 to exit) ", "99", "", 1213417543)
  442.           Color 14, 0
  443.           s65529 = UCase(s4564)
  444.           If s65529 = "0" Then
  445.             Sub1034
  446.             Sub3555
  447.             o65533 = -1
  448.           Else
  449.  4302       If s65529 = "1" Then
  450.               Sub1034
  451.               Locate 8, 1
  452.               Print "Exclude [1]: " + s4471(1);
  453.               Locate 9, 1
  454.               s4471(1) = InputMask("Exclude extension: ", "XXXX", s4471(1), 1213417543)
  455.               s4471(1) = UCase(s4471(1))
  456.               Sub3555
  457.             Else
  458.  4533         If s65529 = "2" Then
  459.                 Sub1034
  460.                 Locate 8, 1
  461.                 Print "Exclude [2]: " + s4471(2);
  462.                 Locate 9, 1
  463.                 s4471(2) = InputMask("Exclude extension: ", "XXXX", s4471(2), 1213417543)
  464.                 s4471(2) = UCase(s4471(2))
  465.                 Sub3555
  466.               Else
  467.  4764           If s65529 = "3" Then
  468.                   Sub1034
  469.                   Locate 8, 1
  470.                   Print "Exclude [3]: " + s4471(3);
  471.                   Locate 9, 1
  472.                   s4471(3) = InputMask("Exclude extension: ", "XXXX", s4471(3), 1213417543)
  473.                   s4471(3) = UCase(s4471(3))
  474.                   Sub3555
  475.                 Else
  476.  4995             If s65529 = "4" Then
  477.                     Sub1034
  478.                     Locate 8, 1
  479.                     Print "Exclude [4]: " + s4471(4);
  480.                     Locate 9, 1
  481.                     s4471(4) = InputMask("Exclude extension: ", "XXXX", s4471(4), 1213417543)
  482.                     s4471(4) = UCase(s4471(4))
  483.                     Sub3555
  484.                   Else
  485.  5226               If s65529 = "5" Then
  486.                       Sub1034
  487.                       Locate 8, 1
  488.                       Print "Exclude [5]: " + s4471(5);
  489.                       Locate 9, 1
  490.                       s4471(5) = InputMask("Exclude extension: ", "XXXX", s4471(5), 1213417543)
  491.                       s4471(5) = UCase(s4471(5))
  492.                       Sub3555
  493.                     Else
  494.  5457                 If s65529 = "6" Then
  495.                         Sub1034
  496.                         Locate 8, 1
  497.                         Print "Exclude [6]: " + s4471(6);
  498.                         Locate 9, 1
  499.                         s4471(6) = InputMask("Exclude extension: ", "XXXX", s4471(6), 1213417543)
  500.                         s4471(6) = UCase(s4471(6))
  501.                         Sub3555
  502.                       Else
  503.  5688                   If s65529 = "7" Then
  504.                           Sub1034
  505.                           Locate 8, 1
  506.                           Print "Exclude [7]: " + s4471(7);
  507.                           Locate 9, 1
  508.                           s4471(7) = InputMask("Exclude extension: ", "XXXX", s4471(7), 1213417543)
  509.                           s4471(7) = UCase(s4471(7))
  510.                           Sub3555
  511.                         Else
  512.  5919                     If s65529 = "8" Then
  513.                             Sub1034
  514.                             Locate 8, 1
  515.                             Print "Exclude [8]: " + s4471(8);
  516.                             Locate 9, 1
  517.                             s4471(8) = InputMask("Exclude extension: ", "XXXX", s4471(8), 1213417543)
  518.                             s4471(8) = UCase(s4471(8))
  519.                             Sub3555
  520.                           Else
  521.  6150                       If s65529 = "9" Then
  522.                               Sub1034
  523.                               Locate 8, 1
  524.                               Print "Exclude [9]: " + s4471(9);
  525.                               Locate 9, 1
  526.                               s4471(9) = InputMask("Exclude extension: ", "XXXX", s4471(9), 1213417543)
  527.                               s4471(9) = UCase(s4471(9))
  528.                               Sub3555
  529.                             Else
  530.  6381                         If s65529 = "10" Then
  531.                                 Sub1034
  532.                                 Locate 8, 1
  533.                                 Print "Exclude [10]: " + s4471(10);
  534.                                 Locate 9, 1
  535.                                 s4471(10) = InputMask("Exclude extension: ", "XXXX", s4471(10), 1213417543)
  536.                                 s4471(10) = UCase(s4471(10))
  537.                                 Sub3555
  538.                               Else
  539.  6612                           Sub1034
  540.                                 o65533 = -1
  541.                               End If
  542.                             End If
  543.                           End If
  544.                         End If
  545.                       End If
  546.                     End If
  547.                   End If
  548.                 End If
  549.               End If
  550.             End If
  551.           End If
  552.  6626   Loop Until o65533
  553.         Sub1034
  554.       End Sub
  555.  
  556. '! Called 1 time
  557.       Sub Sub6650
  558.         Color 11, 0
  559.         Locate 8, 1
  560.         Print "Current Setting for ZIP COMMENT:";
  561.         Color 12, 0
  562.         Locate 9, 1
  563.         Print "Zip Comment...............: " + s4511;
  564.         Color 15, 0
  565.         Locate 10, 1
  566.         Print "This selection tells SCANIT the path\filename for your";
  567.         Locate 11, 1
  568.         Print "zip comment file. This is used by SCANIT to place your";
  569.         Locate 12, 1
  570.         Print "comment file into an archive that passes testing.";
  571.         Color 14, 0
  572.         Locate 13, 1
  573.         Print "Enter the COMPLETE path\filename for your COMMENT file.";
  574.         Locate 14, 1
  575.         Print "Example:";
  576.         Locate 15, 1
  577.         Print "C:\WILDCAT\COMMENT.TXT";
  578.         Locate 17, 1
  579.         Print "Enter new ZIP COMMENT or press <ENTER> for current setting.";
  580.         Color 15, 0
  581.         Locate 18, 1
  582.         s4511 = InputMask("Zip Comment: ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4511, 1213417543)
  583.         s4511 = UCase(s4511)
  584.         Sub1034
  585.       End Sub
  586.  
  587. '! Called 1 time
  588.       Sub Sub6892
  589.         Color 11, 0
  590.         Locate 8, 1
  591.         Print "Current Setting for DEFAULT PACKER:";
  592.         Color 12, 0
  593.         Locate 9, 1
  594.         Print "Default Packer............: " + s4515;
  595.         Color 15, 0
  596.         Locate 10, 1
  597.         Print "This selection allows you to define the DEFAULT PACKER";
  598.         Locate 11, 1
  599.         Print "to be used on your system.  Currently, this is only displayed";
  600.         Locate 12, 1
  601.         Print "to a caller uploading an invalid file type, but in a future";
  602.         Locate 13, 1
  603.         Print "upgrade, this will be used to convert uploads (if desired)";
  604.         Locate 14, 1
  605.         Print "to your preferred archive type.";
  606.         Color 10, 0
  607.         Locate 16, 1
  608.         Print "Example: PKZIP";
  609.         Color 14, 0
  610.         Locate 17, 1
  611.         s4515 = InputMask("Default Packer: ", "XXXXXXXXXX", s4515, 1213417543)
  612.         s4515 = UCase(s4515)
  613.         Sub1034
  614.       End Sub
  615.  
  616. '! Called 1 time
  617.       Sub Sub7118
  618.         Color 11, 0
  619.         Locate 8, 1
  620.         Print "Current Setting for REPACK WITH DEFAULT PACKER:";
  621.         Color 12, 0
  622.         Locate 9, 1
  623.         Print "Repack with default packer: " + s4519;
  624.         Color 15, 0
  625.         Locate 11, 1
  626.         Print "This option, while not in use at this time, will in a future release";
  627.         Locate 12, 1
  628.         Print "be used to repack any file uploaded with your default packer.  For now,";
  629.         Locate 13, 1
  630.         Print "any answer you put in here will be for future use.";
  631.         Color 14, 0
  632.         Locate 15, 1
  633.         s4519 = InputMask("Repack w/default (Y/N): ", "X", s4519, 1213417543)
  634.         s4519 = UCase(s4519)
  635.         Sub1034
  636.       End Sub
  637.  
  638. '! Called 1 time
  639.       Sub Sub7290
  640.         Color 11, 0
  641.         Locate 8, 1
  642.         Print "Current Setting for CONFERENCE NUMBER FOR MESSAGES:";
  643.         Color 12, 0
  644.         Locate 9, 1
  645.         Print "Messages will be sent in Conference: " + Str(i4523);
  646.         Color 15, 0
  647.         Locate 11, 1
  648.         Print "If you have SCANIT's messaging capability turned on, messages";
  649.         Locate 12, 1
  650.         Print "will be sent in this conference (recommend a PRIVATE conference).";
  651.         Color 14, 0
  652.         Locate 15, 1
  653.         i4523 = InputNumber("Conference Number: ", 0, 999)
  654.         Cls 
  655.         Sub2331
  656.       End Sub
  657.  
  658. '! Called 1 time
  659.       Sub Sub7433
  660.         Color 11, 0
  661.         Locate 8, 1
  662.         Print "Current Setting for SEND MESSAGES TO:";
  663.         Color 12, 0
  664.         Locate 9, 1
  665.         Print "Send messages to: " + s4525;
  666.         Color 15, 0
  667.         Locate 11, 1
  668.         Print "This option, if toggled on, sends a message to a caller that";
  669.         Locate 12, 1
  670.         Print "uploads a file that fails scan for any reason. The message ";
  671.         Locate 13, 1
  672.         Print "will contain the reason the file failed testing."
  673.         Color 14, 0
  674.         Locate 15, 1
  675.         s4525 = InputMask("Send Msg To (CALLER, SYSOP, BOTH, or NONE): ", "XXXXXXXXXXXXXXX", s4525, 1213417543)
  676.         s4525 = UCase(s4525)
  677.         Sub1034
  678.       End Sub
  679.  
  680. '! Called 1 time
  681.       Sub Sub7605
  682.         Color 11, 0
  683.         Locate 8, 1
  684.         Print "Current Setting for USER DISPLAY FILE:";
  685.         Color 12, 0
  686.         Locate 9, 1
  687.         Print "User Display File.........: " + s4533;
  688.         Color 15, 0
  689.         Locate 10, 1
  690.         Print "This selection allows you to define the User Display File.";
  691.         Locate 11, 1
  692.         Print "This file is shown to your caller when an upload is being";
  693.         Locate 12, 1
  694.         Print "tested by SCANIT.  You can draw this screen yourself, or";
  695.         Locate 13, 1
  696.         Print "use the file supplied by Blake Software.  This file MUST";
  697.         Locate 14, 1
  698.         Print "be placed in your DISP file directory (usually \WILDCAT\DISP).";
  699.         Color 10, 0
  700.         Locate 16, 1
  701.         Print "Example: SCANIT3.BBS (Only the filename is entered, not the path)";
  702.         Color 14, 0
  703.         Locate 17, 1
  704.         s4533 = InputMask("User Display File: ", "XXXXXXXXXXXX", s4533, 1213417543)
  705.         s4533 = UCase(s4533)
  706.         Sub1034
  707.       End Sub
  708.  
  709. '! Called 1 time
  710.       Sub Sub7831
  711.         Color 11, 0
  712.         Locate 8, 1
  713.         Print "Current Setting for FORCE MAILCHECK ON FAILURE:";
  714.         Color 12, 0
  715.         Locate 9, 1
  716.         Print "Force Mail Check on Failure: " + s4529;
  717.         Color 15, 0
  718.         Locate 11, 1
  719.         Print "This option tells WildCat to do a mail check after an upload";
  720.         Locate 12, 1
  721.         Print "that fails scan.  This way, if messaging is turned on in SCANIT,";
  722.         Locate 13, 1
  723.         Print "your user will get a message explaining why the file they uploaded";
  724.         Locate 14, 1
  725.         Print "failed testing."
  726.         Color 14, 0
  727.         Locate 16, 1
  728.         s4529 = InputMask("Force Mail Check: ", "X", s4529, 1213417543)
  729.         s4529 = UCase(s4529)
  730.         Sub1034
  731.       End Sub
  732.  
  733. '! Called 7 times
  734.       Sub Sub8019
  735.         Dim s65534 As String*1
  736.         Dim s65535 As String*1
  737.  
  738.         Color 11, 0
  739.         Locate 8, 1
  740.         Print "Current Screen Coordinates for Status Messages:";
  741.         Color 15, 0
  742.         Locate 9, 1
  743.         Print "1) Status Message Row.........: " + Str(i4537);
  744.         Locate 10, 1
  745.         Print "2) Filename Row,Col...........: " + Str(i4539) + "," + Str(i4541);
  746.         Locate 11, 1
  747.         Print "3) File Acceptability Row, Col: " + Str(i4543) + "," + Str(i4545);
  748.         Locate 12, 1
  749.         Print "4) Archive Integrity Row, Col.: " + Str(i4547) + "," + Str(i4549);
  750.         Locate 13, 1
  751.         Print "5) Virus Scan Row, Col........: " + Str(i4551) + "," + Str(i4553);
  752.         Locate 14, 1
  753.         Print "6) Sysop Functions Row, Col...: " + Str(i4555) + "," + Str(i4557);
  754.         Locate 15, 1
  755.         Print "7) Return to Main Menu";
  756.         Locate 17, 1
  757.         s65535 = InputMask("Enter Selection: ", "X", "7", 1213417543)
  758.         s65535 = UCase(s65535)
  759.         s65534 = s65535
  760.         If s65534 = "1" Then
  761.           Locate 18, 1
  762.           Print Space(79);
  763.           Locate 18, 1
  764.           i4537 = InputNumber("Primary Status Message Row (1-23): ", 1, 23)
  765.           Sub1034
  766.           Sub8019
  767.         Else
  768.  8453     If s65534 = "2" Then
  769.             Locate 18, 1
  770.             i4539 = InputNumber("Enter ROW for Filename (1-23): ", 1, 23)
  771.             Locate 19, 1
  772.             i4541 = InputNumber("Enter COL for Filename (1-79): ", 1, 79)
  773.             Sub2331
  774.             Sub8019
  775.           Else
  776.  8538       If s65534 = "3" Then
  777.               Locate 18, 1
  778.               i4543 = InputNumber("Enter ROW for File Acceptability (1-23): ", 1, 23)
  779.               Locate 19, 1
  780.               i4545 = InputNumber("Enter COL for File Acceptability (1-79): ", 1, 79)
  781.               Sub2331
  782.               Sub8019
  783.             Else
  784.  8623         If s65534 = "4" Then
  785.                 Locate 18, 1
  786.                 i4547 = InputNumber("Enter ROW for Archive Integrity (1-23): ", 1, 23)
  787.                 Locate 19, 1
  788.                 i4549 = InputNumber("Enter COL for Archive Integrity (1-79): ", 1, 79)
  789.                 Sub2331
  790.                 Sub8019
  791.               Else
  792.  8708           If s65534 = "5" Then
  793.                   Locate 18, 1
  794.                   i4551 = InputNumber("Enter ROW for Virus Scan Info (1-23): ", 1, 23)
  795.                   Locate 19, 1
  796.                   i4553 = InputNumber("Enter COL for Virus Scan Info (1-79): ", 1, 79)
  797.                   Sub2331
  798.                   Sub8019
  799.                 Else
  800.  8793             If s65534 = "6" Then
  801.                     Locate 18, 1
  802.                     i4555 = InputNumber("Enter ROW for Sysop Functions Info (1-23): ", 1, 23)
  803.                     Locate 19, 1
  804.                     i4557 = InputNumber("Enter COL for Sysop Functions Info (1-79): ", 1, 79)
  805.                     Sub2331
  806.                     Sub8019
  807.                   Else
  808.  8878               If s65534 = "7" Then
  809.                       Sub2331
  810.                       GoTo 8909
  811.                     End If
  812.                   End If
  813.                 End If
  814.               End If
  815.             End If
  816.           End If
  817.         End If
  818.  8909
  819.       End Sub
  820.  
  821. '! Called 14 times
  822.       Sub Sub8912
  823.         Dim s65514 As String '! Temporary
  824.         Dim i65518 As Integer '! Temporary
  825.         Dim l65520 As Long
  826.         Dim i65524 As Integer
  827.         Dim s65526 As String
  828.         Dim i65530 As Integer
  829.         Dim s65532 As String
  830.  
  831.         Locate 22, 1
  832.         s4564 = InputMask("Enter Selection Letter: ", "X", "", 1213417543)
  833.         s65526 = UCase(s4564)
  834.         If s65526 = "N" Then
  835.           Sub1034
  836.           Sub3109
  837.           Sub2397
  838.           Sub8912
  839.         Else
  840.  9013     If s65526 = "L" Then
  841.             Sub1034
  842.             Sub3335
  843.             Sub2397
  844.             Sub8912
  845.           Else
  846.  9060       If s65526 = "E" Then
  847.               Sub3902
  848.               Sub2397
  849.               Sub8912
  850.             Else
  851.  9101         If s65526 = "Z" Then
  852.                 Sub1034
  853.                 Sub6650
  854.                 Sub2397
  855.                 Sub8912
  856.               Else
  857.  9148           If s65526 = "D" Then
  858.                   Sub1034
  859.                   Sub6892
  860.                   Sub2397
  861.                   Sub8912
  862.                 Else
  863.  9195             If s65526 = "R" Then
  864.                     Sub1034
  865.                     Sub7118
  866.                     Sub2397
  867.                     Sub8912
  868.                   Else
  869.  9242               If s65526 = "M" Then
  870.                       Sub1034
  871.                       Sub7290
  872.                       Sub2397
  873.                       Sub8912
  874.                     Else
  875.  9289                 If s65526 = "S" Then
  876.                         Sub1034
  877.                         Sub7433
  878.                         Sub2397
  879.                         Sub8912
  880.                       Else
  881.  9336                   If s65526 = "F" Then
  882.                           Sub1034
  883.                           Sub7831
  884.                           Sub2397
  885.                           Sub8912
  886.                         Else
  887.  9383                     If s65526 = "U" Then
  888.                             Sub1034
  889.                             Sub7605
  890.                             Sub2397
  891.                             Sub8912
  892.                           Else
  893.  9430                       If s65526 = "C" Then
  894.                               Sub1034
  895.                               Sub8019
  896.                               Sub2397
  897.                               Sub8912
  898.                             Else
  899.  9477                         If s65526 = "X" Then
  900.                                 Sub1034
  901.                                 Locate 8, 1
  902.                                 Print "Saving Settings to SCANIT.CFG";
  903.                                 s4463 = UCase(s4463)
  904.                                 s4467 = UCase(s4467)
  905.  9559                           For i65530 = 1 To 10 Step 1
  906.                                   s4471(i65530) = UCase(s4471(i65530))
  907.                                 Next
  908.  9701                           s4511 = UCase(s4511)
  909.                                 s4515 = UCase(s4515)
  910.                                 s4519 = UCase(s4519)
  911.                                 s4525 = UCase(s4525)
  912.                                 s4529 = UCase(s4529)
  913.                                 s4533 = UCase(s4533)
  914.                                 Open "SCANIT.CFG" For Output As 1
  915.                                 Print #1, s4463
  916.                                 Print #1, s4467
  917.                                 Print #1, s4471(1)
  918.                                 Print #1, s4471(2)
  919.                                 Print #1, s4471(3)
  920.                                 Print #1, s4471(4)
  921.                                 Print #1, s4471(5)
  922.                                 Print #1, s4471(6)
  923.                                 Print #1, s4471(7)
  924.                                 Print #1, s4471(8)
  925.                                 Print #1, s4471(9)
  926.                                 Print #1, s4471(10)
  927.                                 Print #1, s4511
  928.                                 Print #1, s4515
  929.                                 Print #1, s4519
  930.                                 Print #1, i4523
  931.                                 Print #1, s4525
  932.                                 Print #1, s4529
  933.                                 Print #1, s4533
  934.                                 Print #1, i4537
  935.                                 Print #1, i4539
  936.                                 Print #1, i4541
  937.                                 Print #1, i4543
  938.                                 Print #1, i4545
  939.                                 Print #1, i4547
  940.                                 Print #1, i4549
  941.                                 Print #1, i4551
  942.                                 Print #1, i4553
  943.                                 Print #1, i4555
  944.                                 Print #1, i4557
  945.                                 Print #1, i4559
  946.                                 Print #1, i4561
  947.                                 Close 1
  948.                                 Func488((10), ("@0A@Another Quality @0C@WildStuff @0A@(tm) Utility!"))
  949.                                 Func488((11), ("For more of the @0C@WILDSTUFF!@0E@ Call:"))
  950.                                 Func488((12), ("@09@Green Acres! BBS @0E@(@0D@505@0E@)@0D@763@0E@-@0D@5129@0E@"))
  951.                                 Func488((13), ("@0E@Home Of: RIPIT!, WildStats/Call Log, WildBull Professional, Lots More!"))
  952.                                 Locate 15, 1
  953.                                 WaitEnter 
  954.                                 Cls 
  955.                                 End 
  956.                               Else
  957. 10546                           If s65526 = "A" Then
  958.                                   Sub1034
  959.                                   Locate 8, 1
  960.                                   s65532 = InputMask("Are you sure? (Y/N): ", "Y", "N", 1213417543)
  961.                                   If UCase(s65532) = "Y" Then
  962.                                     Locate 8, 1
  963.                                     Print Space(79);
  964.                                     Func488((8), ("@0C@Exiting without saving changes..."))
  965.                                     Func488((10), ("@0A@Another Quality @0C@WildStuff @0A@(tm) Utility!"))
  966.                                     Func488((11), ("For more of the @0C@WILDSTUFF!@0E@ Call:"))
  967.                                     Func488((12), ("@09@Green Acres! BBS @0E@(@0D@505@0E@)@0D@763@0E@-@0D@5129@0E@"))
  968.                                     Func488((13), ("@0E@Home Of: RIPIT!, WildStats/Call Log, WildBull Professional, Lots More!"))
  969.                                     Locate 15, 1
  970.                                     WaitEnter 
  971.                                     Cls 
  972.                                     End 
  973.                                   Else
  974. 10874                               Sub1034
  975.                                     Sub2397
  976.                                     Sub8912
  977.                                   End If
  978. 10892                           Else
  979. 10898                             Sub2331
  980.                                   Sub2397
  981.                                   Sub8912
  982.                                 End If
  983.                               End If
  984.                             End If
  985.                           End If
  986.                         End If
  987.                       End If
  988.                     End If
  989.                   End If
  990.                 End If
  991.               End If
  992.             End If
  993.           End If
  994.         End If
  995. 10916
  996.       End Sub
  997.